perm filename MACROS[LSP,JRA]1 blob
sn#083041 filedate 1974-01-23 generic text, type C, neo UTF8
COMMENT ⊗ VALID 00002 PAGES
C REC PAGE DESCRIPTION
C00001 00001
C00002 00002 .TURN ON "%"
C00004 ENDMK
C⊗;
.TURN ON "%"
.FONT 1 "BASL30"; <<normal font>>
.FONT 2 "BASB30"; <<headings>>
.FONT 3 "MEXPR.FNT[LSP,JRA]" <<mexpr font:basi30+>>
.FONT 4 "SUB"; <<subscripts>>
.FONT 5 "MEXPR.FNT[LSP,JRA]" <<font of wide mexpr defns>>
.FONT 6 "BASB30"; << font for emphasis>>
.FONT 7 "TREE.FNT[LSP,JRA]" <<box notation>>
.FONT 8 "SUP"; <<superscripts>>
.FONT 9 "SPEC[LSP,JRA]" <<spcial chrs. sigma under S>>
.COMMENT
.
.TREE.FNT CONTAINS:
.G gc marker. A AC pointer. α atom header.~ upper and lower box.
. [ left end. ] right end. NIL. / and \
.;
%1
.MACRO TABIT1(X)⊂ TURN ON "\" NOFILL TABS X;⊃
.MACRO TABIT2(X,Y)⊂TURN ON "\" NOFILL TABS X,Y;⊃
.MACRO TABIT3(X,Y,Z)⊂TURN ON "\" NOFILL TABS X,Y,Z;⊃
.MACRO CENTERIT ⊂TURN ON "←";NOFILL;⊃